How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act5/00386_Specific routines.ls

Text File | 1995-03-28 | 6.0 KB | 220 lines

on startMovie
  global fpos, blevel, numrewards, game5level, rewardcounter, jostling, thingtimes
  set thingtimes to [148: [17, the number of cast "bboxinvert"], 319: [5, the number of cast "zigwilv"], 490: [17, the number of cast "bboxinvert"], 560: [5, the number of cast "zigwilv"], 752: [3, the number of cast "invswitch"], 914: [17, the number of cast "bboxinvert"]]
  set jostling to [:]
  repeat with xxx = 1 to PI * 4
    addProp(jostling, 1 * sin(xxx / 2.0), 1 * sin((PI / 2.0) + (xxx / 2.0)))
  end repeat
  set blevel to game5level
  set numrewards to 3
  set rewardcounter to random(numrewards)
  if game5level = 1 then
    set blevel to 3
  else
    if game5level = 2 then
      set blevel to 6
    else
      set blevel to 10
    end if
  end if
  set fpos to [[[408, 55], [527, 104], [578, 223], [528, 341], [407, 400], [287, 341], [240, 221], [289, 104]], [[468, 67], [563, 151], [567, 282], [481, 378], [346, 392], [256, 296], [250, 165], [337, 69]]]
  repeat with xxx = 7 to 14
    set the visible of sprite xxx to 1
  end repeat
  if blevel < 6 then
    set the visible of sprite 10 to 0
    set the visible of sprite 14 to 0
  end if
  if blevel < 10 then
    set the visible of sprite 8 to 0
    set the visible of sprite 12 to 0
  end if
end

on initgame
  global goalbugs, bugcount, plist, blevel, bcolor, numboxes
  repeat with xxx = 7 to 14
    puppetSprite(xxx, 1)
    set the visible of sprite xxx to 1
  end repeat
  if blevel < 6 then
    set the visible of sprite 10 to 0
    set the visible of sprite 14 to 0
  end if
  if blevel < 10 then
    set the visible of sprite 8 to 0
    set the visible of sprite 12 to 0
  end if
  puppetSprite(17, 1)
  puppetSprite(6, 1)
  puppetSprite(21, 1)
  puppetSprite(22, 1)
  set plist to []
  repeat with xxx = 7 to 14
    add(plist, the castNum of sprite xxx)
  end repeat
  set numboxes to 0
  sactivate(21)
  sactivate(22)
  buginit()
end

on buginit
  global bugsay
  set bugsay to [0, 0, 0, 0, 0, 0, 0]
  set ondeck to random(7)
  set ondeckpos to [593, 437]
  set the locH of sprite 22 to 695
  set the castNum of sprite 22 to the number of cast ("b" & ondeck)
  set the locV of sprite 22 to 437
end

on bugline
  global stemp, bugsay, ondeck, ondeckpos, batter, battar, emptyness, stinktime
  set ondeck to random(7)
  repeat while ("b" & ondeck) = the name of cast the castNum of sprite 22
    set ondeck to random(7)
  end repeat
  set stemp to the name of cast the castNum of sprite 22 & "s"
  set battar to value(char 2 of stemp)
  set stinktime to the timer + (the size of cast stemp / 183)
  if battar = 7 then
    set stinktime to 150 + the timer
  end if
  if battar = 6 then
    set stinktime to 270 + the timer
  end if
  setAt(bugsay, battar, getAt(bugsay, battar) + 1)
  if getAt(bugsay, battar) > 2 then
    set stemp to "not" & random(8)
    set stinktime to the timer + (the size of cast stemp / 183)
  end if
  preLoad(cast stemp)
  puppetSound(stemp)
  set batter to [501, 437]
  set ondeckpos to [593, 437]
  smovespecial(22, 60, batter)
  set emptyness to 1
end

on bugline2
  global stemp, bugsay, ondeck, ondeckpos, batter, battar
  set temp to []
  set temp to sinfo(22)
  sactivate(21, temp)
  set the locH of sprite 22 to 695
  set the castNum of sprite 22 to the number of cast ("b" & ondeck)
  smovespecial(22, 60, ondeckpos)
end

on setwheel
  global fpos
  puppetSprite(4, 1)
  sactivate(11, sinfo(17))
  preLoadCast("w1", "w2")
  sdeact(17)
  set the visible of sprite 17 to 0
  set notdone to 1
  repeat while notdone = 1
    repeat with xxx = 1 to 2
      set the castNum of sprite 4 to the number of cast ("w" & xxx)
      repeat with yyy = 1 to 8
        ssetpos(yyy + 6, getAt(getAt(fpos, xxx), yyy))
      end repeat
      updateStage()
      mydelay(30)
    end repeat
    set temp to sinfo(14)
    repeat with xxx = 14 down to 8
      sactivate(xxx, sinfo(xxx - 1))
    end repeat
    sactivate(7, temp)
    set the castNum of sprite 4 to the number of cast "w1"
    repeat with yyy = 1 to 8
      ssetpos(yyy + 6, getAt(getAt(fpos, 1), yyy))
    end repeat
    updateStage()
    if the visible of sprite 11 = 1 then
      set notdone to 0
    end if
  end repeat
  sactivate(17, sinfo(11))
  set the visible of sprite 17 to 1
end

on startwheel
  global bugcount, goalbugs, bcolor, numboxes, blevel, numrewards, rewardcounter
  if bugcount < goalbugs then
    talkinghead("bug5.3")
    exit
  else
    if (the optionDown and the controlDown) or ((blevel = 3) and (numboxes = 3)) or ((blevel = 6) and (numboxes = 5)) or (numboxes = 7) then
      set rewardcounter to rewardcounter + 1
      if rewardcounter > numrewards then
        set rewardcounter to 1
      end if
      set the castNum of sprite 6 to the number of cast "num 0"
      updateStage()
      go("reward" & rewardcounter)
      exit
    end if
    set numboxes to numboxes + 1
    go("nextbox")
  end if
end

on setcount
  global bugcount, goalbugs, bcolor, sayit
  set bugcount to 0
  set goalbugs to random(blevel)
  puppetSound("Carnival short amp")
  set dtime to 205
  set ptime to the timer
  repeat while the timer < (ptime + dtime)
    set the castNum of sprite 6 to the number of cast ("num" && random(blevel))
    updateStage()
    mydelay(5)
  end repeat
  set the castNum of sprite 6 to the number of cast ("num" && goalbugs)
  set sayit to "s" & goalbugs
  updateStage()
  set temp to sinfo(11)
  set nomen to the name of cast getAt(temp, 4)
  set bcolor to word 1 of nomen
  setAt(temp, 4, the number of cast (word 1 of nomen && "0"))
  sactivate(17, temp)
end

on bugout
  go("barktalk")
end

on buginbox
  global bugcount, goalbugs, bcolor, hominy
  puppetSound("plop" & random(7))
  if bugcount < goalbugs then
    set bugcount to bugcount + 1
    set the castNum of sprite 17 to the number of cast (bcolor && bugcount)
    updateStage()
    go("barktalk")
    exit
  end if
  puppetSound(0)
  set hominy to hominy + 1
  if hominy > 2 then
    set hominy to 1
  end if
  talkinghead("bug5." & hominy)
end

on bugdone
  setwheel()
  setcount()
end

on setlev param
  global blevel
  set blevel to param
  go("start")
end